home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / wheels1.arc / GETSETDD.PAS < prev    next >
Pascal/Delphi Source File  |  1985-06-28  |  566b  |  20 lines
  1. {@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
  2. The purchaser of these procedures and functions may include them in COMPILED
  3. programs freely, but may not sell or give away the source text.
  4.  
  5. }
  6. program Get_and_Set_Default_Drive;
  7.  
  8. var
  9.   drive : char;
  10. {$I regpack.typ}
  11. {$I getsetdd.lib}
  12. begin
  13.   GetSetDrive('G',drive);
  14.   WriteLn('The default drive is now ',drive);
  15.   Write('Change to what? ');
  16.   read(drive); WriteLn;
  17.   GetSetDrive('S',drive);
  18.   GetSetDrive('G',drive);
  19.   WriteLn('The default drive is now ',drive);
  20. end.